home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / pixie.cpt / Pixie Scheme ƒ / Pixie Scheme Help / card_55577.txt < prev    next >
Encoding:
Text File  |  1991-01-07  |  1.5 KB  |  71 lines
  1. -- card: 55577 from stack: in
  2. -- bmap block id: 75281
  3. -- flags: 0000
  4. -- background id: 2692
  5. -- name: 
  6.  
  7.  
  8. -- part 8 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=141 top=297 right=319 bottom=288
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Find marked line
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put the number of this card into startCard
  23.   get selection
  24.   if it is not empty then
  25.     if it contains return then
  26.       put 1 into start
  27.       repeat while char start of selection is return
  28.         add 1 to start
  29.       end repeat
  30.       put start into stop
  31.       repeat number of chars in selection - start + 1
  32.         if char stop of selection is return then exit repeat
  33.         add 1 to stop
  34.       end repeat
  35.       put char start to stop - 1 of selection into searchFor
  36.     else
  37.       put it into searchFor
  38.     end if
  39.     set lockScreen to true
  40.     put "Find Whole" && quote & searchFor & quote
  41.     do message
  42.     if the number of this card is startCard then
  43.       do message
  44.     end if
  45.     hide message
  46.     set lockScreen to false
  47.   end if
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part contents for background part 10
  53. ----- text -----
  54.  
  55. Enhancements
  56. environment
  57. Error Handling
  58. eval
  59. Evaluate
  60. Evaluate and Inspect
  61. Excuses
  62. fatal errors
  63. Flaws
  64. garbage collection
  65. gensym
  66. Help Menu
  67. implementation error
  68.  
  69. -- part contents for background part 47
  70. ----- text -----
  71. 315